home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / recent / mcf4amrc.lha / MCF4AmIRC / Rexx / MCF_USERS.AMIRX < prev    next >
Text File  |  1996-09-17  |  847b  |  10 lines
  1. /* MCF_USERS.AMIRX
  2. // $VER: MCF_USERS.AMIRX 4.1 (29.07.96)
  3. \\ Written by Donald T. Becker (dtbecker@prolog.net) IRC: StarDustr
  4. // Please mail any bug reports/comments to the above address with a subject
  5. \\ header of MCF.AMIRX.
  6. //
  7. \\ ** What to do with this file?
  8. // Put this script in REXX:  It will be used by MCF.AMIRX.
  9. */
  10. ;parse arg MCFenv junk;address value(MCFenv);fname="MCF:MCF.Ops";call open("Input",fname,'R');xx=readln("Input");do until eof("Input");parse value xx with Auth User Host Mchans;User=left(User,25);Host=left(Host,20);if Auth ~="PRIVCH" then;"echo P="d2c(27)"««MCF» User "User "Host "Host "Auth "Auth;if Mchans ~="" then;do;do cnt=1 by 1 until Mchans="";parse value Mchans with Chan Auth Mchans;Chan=left(Chan,46);"echo P="d2c(27)"««MCF» + Channel: "Chan"Auth "Auth;end cnt;end;xx=readln("Input");end;call close("Input");exit